perm filename STER[SCR,LCS] blob sn#225190 filedate 1976-07-12 generic text, type T, neo UTF8
00400	INSTRUMENT STER;
00500	OSCIL[10](P4,10*MAG/P2,P5);
00600	COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
00700	OUTA←OUTA+U2*P7;OUTB←OUTB+U2*(1-P7);END;
00800	NCHNS←2;
00900	PLAY;STER 0 .2 A 2000 F1 F4 1;STER .2 .2 FS 2000 F1 F4 0;FINISH;